home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 9 / AMUG BBS in a Box Volume IX (August 1993) (MacWizards).iso / Files / Util / U-V / UseLogger.cpt / UseLog / card_2090.txt < prev    next >
Encoding:
Text File  |  1987-10-06  |  3.3 KB  |  156 lines
  1. -- card: 2090 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 2768
  5. -- name: Script Card 1
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 0007
  11. -- rect: left=12 top=53 right=332 bottom=470
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 4
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 12
  19. -- part name: Script Segment
  20.  
  21.  
  22. -- part 4 (button)
  23. -- low flags: 00
  24. -- high flags: 0000
  25. -- rect: left=466 top=21 right=51 bottom=503
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 1013 / 1013
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: New Button
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   go to next
  37. end mouseUp
  38.  
  39.  
  40.  
  41. -- part 5 (button)
  42. -- low flags: 00
  43. -- high flags: 0000
  44. -- rect: left=431 top=21 right=51 bottom=467
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 1014 / 1014
  47. -- text alignment: 1
  48. -- font id: 0
  49. -- text size: 12
  50. -- style flags: 0
  51. -- line height: 16
  52. -- part name: New Button
  53. ----- HyperTalk script -----
  54. on mouseUp
  55.   go to prev
  56. end mouseUp
  57.  
  58.  
  59.  
  60. -- part 6 (field)
  61. -- low flags: 01
  62. -- high flags: 0002
  63. -- rect: left=12 top=21 right=49 bottom=218
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 0 / 0
  66. -- text alignment: 0
  67. -- font id: 2
  68. -- text size: 20
  69. -- style flags: 0
  70. -- line height: 26
  71. -- part name: Title
  72.  
  73.  
  74. -- part 7 (button)
  75. -- low flags: 00
  76. -- high flags: 0000
  77. -- rect: left=466 top=50 right=81 bottom=503
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 1012 / 1012
  80. -- text alignment: 1
  81. -- font id: 0
  82. -- text size: 12
  83. -- style flags: 0
  84. -- line height: 16
  85. -- part name: 
  86. ----- HyperTalk script -----
  87. on mouseUp
  88.   go to card 1
  89. end mouseUp
  90.  
  91.  
  92.  
  93. -- part 8 (field)
  94. -- low flags: 01
  95. -- high flags: 0002
  96. -- rect: left=224 top=30 right=49 bottom=434
  97. -- title width / last selected line: 0
  98. -- icon id / first selected line: 0 / 0
  99. -- text alignment: 0
  100. -- font id: 4
  101. -- text size: 12
  102. -- style flags: 0
  103. -- line height: 16
  104. -- part name: Where
  105.  
  106.  
  107. -- part contents for card part 1
  108. ----- text -----
  109. -- UseLog Begin
  110. on open
  111.   -- Use Log Open Logger
  112.   -- Rich Taylor, 10/5/87
  113.   if word 2 of the params contains 0 then
  114.     set lockScreen to true
  115.     push card
  116.     go to stack "UseLog"
  117.     -- make new "last line"
  118.     put return after last line of card field "Log" of card "Log Card"
  119.     -- process the message a bit...
  120.     put the params into logEntry
  121.     put ":" & the date & "|" & the long time after last word of logEntry
  122.     delete word 1 of logEntry  -- zap "open "
  123.     delete word 1 of logEntry  -- zap "0 "
  124.     -- stick entry into log
  125.     put logEntry into last line of card field "Log" of card "Log Card"
  126.     pop card
  127.     set lockScreen to false
  128.   end if
  129.   -- Now, hand open message off to HyperCard
  130.   pass open
  131. end open
  132.  
  133. on quit
  134.   set lockScreen to true
  135.   push card
  136.   go to stack "UseLog"
  137.   -- make new "last line"
  138.   put return after last line of card field "Log" of card "Log Card"
  139.   -- process the log entry
  140.   put "Exit to Finder:" & the date & "|" & the long time into logEntry
  141.   -- stick entry into log
  142.   put logEntry into last line of card field "Log" of card "Log Card"
  143.   pop card
  144.   set lockScreen to false
  145. end quit
  146. -- UseLog End
  147.  
  148.  
  149.  
  150. -- part contents for card part 6
  151. ----- text -----
  152. Script Segment 1
  153.  
  154. -- part contents for card part 8
  155. ----- text -----
  156. before "on startUp"